home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib11.dsk / CHANGE DEMO 3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  17 lines
  1. 0  HOME :CHANGE = 833:N = 10
  2. 10  PRINT  CHR$(4)"BLOAD CHANGE"
  3. 20  GOTO 500
  4. 30  FOR J = 1 TO N -1: FOR I = 1 TO N -J
  5. 40 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  6. 50  NEXT I,J: PRINT  CHR$(7): RETURN 
  7. 500  RESTORE : FOR I = 1 TO 10: READ A$(I): NEXT 
  8. 510  DATA  NIBBLE,APPLE,APPLESOFT,DISK II,PRINTER,PADDLES,COMPUTER,MODEM,JOYSTICK,WOZNIAK
  9. 520  HOME : INVERSE : PRINT "UNSORTED DATA": NORMAL : PRINT : FOR I = 1 TO 10: PRINT A$(I): NEXT 
  10. 530  VTAB 20: CALL  -958: PRINT "ASCENDING OR DESCENDING ORDER (A/D)? ";: GET AN$: PRINT AN$: IF AN$ < >"A"  AND AN$ < >"D"  THEN 530
  11. 540  IF AN$ = "A"  THEN A$ = "IFA$(I)>A$(I+1)THENT$=A$(I):A$(I)=A$(I+1):A$(I+1)=T$"
  12. 550  IF AN$ = "D"  THEN A$ = "IFA$(I)<A$(I+1)THENT$=A$(I):A$(I)=A$(I+1):A$(I+1)=T$"
  13. 560  GOSUB 1000: CALL CHANGE,40: GOSUB 30
  14. 570  VTAB 20: CALL  -958: VTAB 1: HTAB 20: INVERSE : PRINT "SORTED DATA": NORMAL : PRINT : FOR I = 1 TO 10: HTAB 20: PRINT A$(I): NEXT 
  15. 580  VTAB 20: INVERSE : PRINT "PRESS ANY KEY TO CONTINUE";: NORMAL : POKE  -16368,0: GET AN$
  16. 590  GOTO 500
  17. 1000  FOR Z = 1 TO  LEN(A$): POKE 511 +Z, ASC( MID$ (A$,Z,1)): NEXT Z: POKE 511 +Z,0: RETURN